inherited FReProcessaCredito: TFReProcessaCredito
  Left = 386
  Top = 304
  Caption = 'FReProcessaCredito'
  ClientHeight = 140
  ClientWidth = 434
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Width = 434
    Height = 140
    object Label6: TLabel [0]
      Left = 17
      Top = 49
      Width = 56
      Height = 13
      Caption = 'Cliente (F-8)'
    end
    inherited Panel2: TPanel
      Width = 432
      inherited BtnIncluir: TBitBtn
        Left = 12
        Caption = '&Executar'
      end
      inherited BtnEditar: TBitBtn
        Left = 98
      end
      inherited BtnSalvar: TBitBtn
        Left = 230
      end
      inherited BtnCancelar: TBitBtn
        Left = 285
      end
      inherited BtnFechar: TBitBtn
        Left = 353
      end
      inherited BtnExcluir: TBitBtn
        Left = 176
      end
    end
    inherited Panel3: TPanel
      Top = 69
      Width = 432
      inherited DBNavigator1: TDBNavigator
        Hints.Strings = ()
      end
    end
    object DBLCBCliente: TDBLookupComboBox
      Tag = 20
      Left = 15
      Top = 64
      Width = 402
      Height = 19
      Ctl3D = False
      KeyField = 'CLI_CODIGO'
      ListField = 'CLI_RAZAO'
      ListSource = DSCliente
      ParentCtl3D = False
      TabOrder = 2
      OnKeyDown = DBLCBClienteKeyDown
    end
    object ProgressBar1: TProgressBar
      Left = 14
      Top = 104
      Width = 403
      Height = 16
      Min = 0
      Max = 100
      TabOrder = 3
    end
  end
  object QPesquisa: TQuery
    DatabaseName = 'base'
    SQL.Strings = (
      
        'Select PlanoContas.estrutura as estrutura,PlanoContas.Descricao ' +
        'as Descricao, Cont_Corr_Descricao as Conta, Lanc_Codigo as lanca' +
        'mento,Lanc_Data as data, Lanc_Documento as Documento,'
      
        'Lanc_Historico as Historico, lanc_Cheque as Cheque,sum(Lanc_Valo' +
        'r) as Valor'
      ''
      
        'From  PlanoContas Inner join (Lancamento Inner join ContaCorrent' +
        'e on  Lanc_Conta =Cont_Corr_Codigo) on PlanoContas.Codigo = Lanc' +
        '_Plano '
      ''
      'Group  By'
      
        'PlanoContas.estrutura ,PlanoContas.Descricao, Cont_Corr_Descrica' +
        'o, Lanc_Codigo,Lanc_Data, Lanc_Documento,'
      'Lanc_Historico,lanc_Cheque'
      ';')
    Left = 248
    Top = 73
  end
  object DSPesquisa: TDataSource
    DataSet = QPesquisa
    Left = 184
    Top = 75
  end
  object DSCliente: TDataSource
    DataSet = DMGestao.QCliente
    Left = 312
    Top = 64
  end
end
